My Neighborhood/My Neighborhood.iso/mac/MacFiles/Intro2.Dxr/00104.ls

Text File | 1997-11-18 | 1.7 KB | 60 lines

on exitFrame
  global counter, morphsprite, tix, posneg, temploop
  set temploop to 0
  if tix < 8 then
    set tix to tix + 1
  else
    if (the name of cast counter = "PGA.BMP") or (the name of cast counter = "PGB.BMP") or (the name of cast counter = "PGC.BMP") then
      set tix to 0
      set temp to random(3)
      if temp = 1 then
        if random(20) < 11 then
          set posneg to -1
        else
          set posneg to 1
        end if
        if random(20) > 10 then
          set morphsprite to 6
        else
          set morphsprite to 5
        end if
        if the name of cast the castNum of sprite morphsprite = "PGA.BMP" then
          set counter to 1
          set the castNum of sprite morphsprite to counter
        else
          if the name of cast the castNum of sprite morphsprite = "PGB.BMP" then
            set counter to 24
            set the castNum of sprite morphsprite to counter
          else
            if the name of cast the castNum of sprite morphsprite = "PGC.BMP" then
              set counter to 49
              set the castNum of sprite morphsprite to counter
            end if
          end if
        end if
        set tix to 41
        set counter to counter + posneg
        if counter > 73 then
          set counter to 1
        else
          if counter = 0 then
            set counter to 73
          end if
        end if
        set the castNum of sprite morphsprite to counter
      end if
    else
      set counter to counter + posneg
      if counter > 73 then
        set counter to 1
      else
        if counter = 0 then
          set counter to 73
        end if
      end if
      set the castNum of sprite morphsprite to counter
    end if
  end if
  go(the frame)
end